home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue04 / basicforum / binchopb < prev   
Unknown  |  1989-12-04  |  809 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% xdgMime image/x-tga default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 f4 20 3e 20 | 42 69 6e 53 65 61 72 63 |..... > |BinSearc|
|00000010| 68 42 0d 00 14 05 f4 0d | 00 1e 22 f4 20 52 6f 75 |hB......|..". Rou|
|00000020| 74 69 6e 65 73 20 62 79 | 20 4d 61 6c 63 6f 6d 20 |tines by| Malcom |
|00000030| 42 61 6e 74 68 6f 72 70 | 65 0d 00 28 05 f4 0d 00 |Banthorp|e..(....|
|00000040| 32 29 f4 20 54 77 6f 20 | 76 65 72 73 69 6f 6e 73 |2). Two |versions|
|00000050| 20 6f 66 20 61 20 72 65 | 63 75 72 73 69 76 65 20 | of a re|cursive |
|00000060| 72 6f 75 74 69 6e 65 0d | 00 3c 05 f4 0d 00 46 4a |routine.|.<....FJ|
|00000070| f4 20 54 68 65 20 73 65 | 63 6f 6e 64 20 69 73 20 |. The se|cond is |
|00000080| 73 68 6f 72 74 65 72 20 | 62 75 74 20 68 61 73 20 |shorter |but has |
|00000090| 74 68 65 20 70 6f 73 73 | 69 62 6c 65 20 64 69 73 |the poss|ible dis|
|000000a0| 61 64 76 61 6e 74 61 67 | 65 20 74 68 61 74 20 69 |advantag|e that i|
|000000b0| 6e 20 73 6f 6d 65 0d 00 | 50 49 f4 20 63 61 73 65 |n some..|PI. case|
|000000c0| 73 20 73 6c 69 67 68 74 | 6c 79 20 6d 6f 72 65 20 |s slight|ly more |
|000000d0| 72 65 63 75 72 73 69 76 | 65 20 63 61 6c 6c 73 20 |recursiv|e calls |
|000000e0| 6d 61 79 20 62 65 20 72 | 65 71 75 69 72 65 64 20 |may be r|equired |
|000000f0| 74 6f 20 63 6f 6d 70 6c | 65 74 65 20 74 68 65 0d |to compl|ete the.|
|00000100| 00 5a 0d f4 20 73 65 61 | 72 63 68 2e 0d 00 64 04 |.Z.. sea|rch...d.|
|00000110| 0d 00 6e 04 0d 00 78 1f | dd 20 a4 52 42 73 65 61 |..n...x.|. .RBsea|
|00000120| 72 63 68 31 28 61 25 2c | 20 62 25 2c 20 66 69 6e |rch1(a%,| b%, fin|
|00000130| 64 24 29 0d 00 82 10 ea | 20 72 25 2c 20 77 68 65 |d$).....| r%, whe|
|00000140| 72 65 25 0d 00 8c 15 72 | 25 20 3d 20 61 25 20 2b |re%....r|% = a% +|
|00000150| 20 62 25 20 3e 3e 20 31 | 0d 00 96 0a c8 8e 20 b9 | b% >> 1|...... .|
|00000160| 20 ca 0d 00 a0 14 20 20 | c9 20 4d 24 28 72 25 29 | .....  |. M$(r%)|
|00000170| 3d 66 69 6e 64 24 0d 00 | aa 13 20 20 20 20 77 68 |=find$..|..    wh|
|00000180| 65 72 65 25 20 3d 20 72 | 25 0d 00 b4 13 20 20 c9 |ere% = r|%....  .|
|00000190| 20 62 25 20 3d 20 61 25 | 20 2b 20 31 0d 00 be 13 | b% = a%| + 1....|
|000001a0| 20 20 20 20 77 68 65 72 | 65 25 20 3d 20 61 25 0d |    wher|e% = a%.|
|000001b0| 00 c8 16 20 20 c9 20 4d | 24 28 72 25 29 20 3e 20 |...  . M|$(r%) > |
|000001c0| 66 69 6e 64 24 0d 00 d2 | 29 20 20 20 20 77 68 65 |find$...|)    whe|
|000001d0| 72 65 25 20 3d a4 52 42 | 73 65 61 72 63 68 31 28 |re% =.RB|search1(|
|000001e0| 61 25 2c 20 72 25 2c 20 | 66 69 6e 64 24 29 0d 00 |a%, r%, |find$)..|
|000001f0| dc 07 20 20 7f 0d 00 e6 | 29 20 20 20 20 77 68 65 |..  ....|)    whe|
|00000200| 72 65 25 20 3d a4 52 42 | 73 65 61 72 63 68 31 28 |re% =.RB|search1(|
|00000210| 72 25 2c 20 62 25 2c 20 | 66 69 6e 64 24 29 0d 00 |r%, b%, |find$)..|
|00000220| f0 05 cb 0d 00 fa 0c 3d | 20 77 68 65 72 65 25 0d |.......=| where%.|
|00000230| 01 04 04 0d 01 0e 04 0d | 01 18 1f dd 20 a4 52 42 |........|.... .RB|
|00000240| 73 65 61 72 63 68 32 28 | 61 25 2c 20 62 25 2c 20 |search2(|a%, b%, |
|00000250| 66 69 6e 64 24 29 0d 01 | 22 10 ea 20 72 25 2c 20 |find$)..|".. r%, |
|00000260| 77 68 65 72 65 25 0d 01 | 2c 15 72 25 20 3d 20 61 |where%..|,.r% = a|
|00000270| 25 20 2b 20 62 25 20 3e | 3e 20 31 0d 01 36 0a c8 |% + b% >|> 1..6..|
|00000280| 8e 20 b9 20 ca 0d 01 40 | 0f 20 20 c9 20 72 25 20 |. . ...@|.  . r% |
|00000290| 3d 20 61 25 0d 01 4a 13 | 20 20 20 20 77 68 65 72 |= a%..J.|    wher|
|000002a0| 65 25 20 3d 20 61 25 0d | 01 54 16 20 20 c9 20 4d |e% = a%.|.T.  . M|
|000002b0| 24 28 72 25 29 20 3e 20 | 66 69 6e 64 24 0d 01 5e |$(r%) > |find$..^|
|000002c0| 29 20 20 20 20 77 68 65 | 72 65 25 20 3d a4 52 42 |)    whe|re% =.RB|
|000002d0| 73 65 61 72 63 68 32 28 | 61 25 2c 20 72 25 2c 20 |search2(|a%, r%, |
|000002e0| 66 69 6e 64 24 29 0d 01 | 68 07 20 20 7f 0d 01 72 |find$)..|h.  ...r|
|000002f0| 29 20 20 20 20 77 68 65 | 72 65 25 20 3d a4 52 42 |)    whe|re% =.RB|
|00000300| 73 65 61 72 63 68 32 28 | 72 25 2c 20 62 25 2c 20 |search2(|r%, b%, |
|00000310| 66 69 6e 64 24 29 0d 01 | 7c 05 cb 0d 01 86 0c 3d |find$)..||......=|
|00000320| 20 77 68 65 72 65 25 0d | ff                      | where%.|.       |
+--------+-------------------------+-------------------------+--------+--------+